perm filename TEXFIL.DIF[TEX,DEK] blob
sn#500223 filedate 1980-03-28 generic text, type T, neo UTF8
1) TEXFIL.SAI[TEX,DEK] and 2) TEXFIL.SAV[TEX,DEK] 3-28-80 21:48 pages 1,1
**** File 1) TEXFIL.SAI[TEX,DEK]/1P/3L
1) comment This page contains the most operating-system dependent aspects
**** File 2) TEXFIL.SAV[TEX,DEK]/1P/2L
2) comment edited by Guibas on December 12, 1979
2) allow user to accept or reject the first line of a file;
2) comment edited by Wyatt on Aug. 16, 1978
2) removed explicit directory name from call to declareofil;
2) comment edited by Wyatt on Aug. 15, 1978
2) added "saf" to arrays;
2) comment edited by Guibas on Aug. 7, 1978;
2) comment This page contains the most operating-system dependent aspects
***************
**** File 1) TEXFIL.SAI[TEX,DEK]/1P/88L
1) internal integer procedure opendigit(integer d) # Do this after "\open d =";
1) begin integer chan; string s;
1) scanfilename;
1) if fname[2]=0 then fname[2]←".TEX" # default extension;
1) s←fname[0]&fname[1]&fname[2];
1) open(chan←getchan,"DSK",0,0,2,0,0,eof);
1) loop begin enter(chan,s,eof);
1) if eof then
1) begin print(nextline,"I can't write on file ",s,
1) nextline,"Output file for \open "&d&" = ");
1) s←inchwl;
1) end
1) else done
1) end;
1) return(chan);
1) end;
1) internal procedure definefont(integer f) # Do this after seeing "=" of font def;
**** File 2) TEXFIL.SAV[TEX,DEK]/1P/95L
2) internal procedure definefont(integer f) # Do this after seeing "=" of font def;
***************